function ValueResult=FilterFourthLevelEditorsCoAuthors3(n1)
    
% n1=2;
ValueTime=clock();
disp(['Start of the processing at ' num2str(ValueTime(1,4)) ':' num2str(ValueTime(1,5)) ':' num2str(ValueTime(1,6)) ' for journal ' num2str(n1)]);
% ValueFolderTemp2='C:\Users\Remy Neveu\Desktop\Etude IRM\Analyse\cc in2p3\Nature\ResultsEditor\ResultsUnfiltered\';
% ValueFolderTemp='C:\Users\Remy Neveu\Desktop\Etude IRM\Analyse\cc in2p3\Nature\ResultsEditor\';
ValueFolderTemp2='/baie/data/rneveu/Nature/ResultsEditor/ResultsUnfiltered/';
ValueFolderTemp='/baie/data/rneveu/Nature/ResultsEditor/';
% ValueFolderTemp3='C:\Users\Remy Neveu\Desktop\Etude IRM\Analyse\';
load([ValueFolderTemp2 'FileAnalysisEditorCoAuthors' num2str(n1) 'RestrictedYear2Month8Temp.mat']);
TestTemp=0;
n2=1;
while n2<=33&&TestTemp==0
    eval(['VecValueTemp2=VecResultsNameAuthors' num2str(n2) 'j1y1m;']);
    n3=1;
    while n3<=size(VecValueTemp2,2)&&TestTemp==0
        if ischar(VecValueTemp2{1,n3})==1
            TestTemp=1;
        end
        n3=n3+1;
    end
    n2=n2+1;
end
ValueResult=TestTemp;